home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / MENUTOOL.DEF < prev    next >
Encoding:
Modula Definition  |  1993-10-24  |  866 b   |  35 lines
  1. DEFINITION MODULE MenuTool;
  2.  
  3. (*
  4. Menu Tools.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM AES      IMPORT Key,SpecialKey,TreePtr,ObjectIndex;
  12. FROM ObjcTool IMPORT ObjectCallback,NewObjectCallback,DisposeObjectCallback;
  13.  
  14. PROCEDURE ShowMenu(Menu: TreePtr);
  15.  
  16. PROCEDURE HideMenu(Menu: TreePtr);
  17.  
  18. PROCEDURE MenuKey(Menu: TreePtr; EvKey: Key; EvSpecial: SpecialKey): BOOLEAN;
  19.  
  20. TYPE MenuCallback = ObjectCallback;
  21.  
  22. #if proc_const
  23. CONST (*NewMenuAction     = NewObjectCallback;*)
  24.       DisposeMenuAction = DisposeObjectCallback;
  25. #else
  26. VAR (*NewMenuAction: PROCEDURE(TreePtr,ObjectIndex,MenuCallback);*)
  27.     DisposeMenuAction: PROCEDURE(TreePtr,ObjectIndex);
  28. #endif
  29.  
  30. PROCEDURE NewMenuAction(Menu: TreePtr; Item: ObjectIndex; Call: MenuCallback);
  31.  
  32. PROCEDURE MenuAction(Menu: TreePtr; Title: ObjectIndex; Item: ObjectIndex);
  33.  
  34. END MenuTool.
  35.